Imports System.Data
Imports System.Data.SqlClient

Public Class Verzonden_Tekeningen

    Private Sub Verzonden_Tekeningen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Status' table. You can move, or remove it, as needed.
        Me.StatusTableAdapter.Fill(Me.DocRegData2DataSet.Status)
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Datums' table. You can move, or remove it, as needed.
        Me.DatumsTableAdapter.Fill(Me.DocRegData2DataSet.Datums)
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Tekeningen' table. You can move, or remove it, as needed.
        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString
        Me.TekeningenTableAdapter.FillBy(Me.DocRegData2DataSet.Tekeningen, werknummer)
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Bedrijven' table. You can move, or remove it, as needed.
        Me.BedrijvenTableAdapter.Fill(Me.DocRegData2DataSet.Bedrijven)
        'TODO: This line of code loads data into the 'DocRegData2DataSet.Verzonden_Tekeningen' table. You can move, or remove it, as needed.
        Me.Verzonden_TekeningenTableAdapter.FillBy(Me.DocRegData2DataSet.Verzonden_Tekeningen, werknummer)

    End Sub


    Private Sub BtnFrmHoofdmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFrmHoofdmenu.Click
        Me.Visible = False
        My.Forms.FrmHoofdmenu.Visible = True

    End Sub

    Private Sub BtnVerzondenNaar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerzondenNaar.Click

        'filter dataview on BedrijvenID
        Dim Bedr As String
        Bedr = BedrijfsnaamComboBox.Text

        Dim dvTekeningen As New DataView(DocRegData2DataSet.Tables("Verzonden_Tekeningen"))
        dvTekeningen.RowFilter = "Verzonden_Naar= '" & Bedr & "'"
        DGRVerzonden_Tekeningen.AutoGenerateColumns = True
        DGRVerzonden_Tekeningen.DataSource = dvTekeningen
        DGRVerzonden_Tekeningen.Columns("Verzonden_ID").Visible = False
        DGRVerzonden_Tekeningen.Columns("Verzonden_Naar").Visible = False
        DGRVerzonden_Tekeningen.Columns("Werknummer").Visible = False

    End Sub


    Private Sub BtnOntvangenBedrijven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOntvangenBedrijven.Click

        'filter dataview on TekeningenID's and further..
        Dim Bladnummer As String = BladnummerComboBox.SelectedValue
        Dim Tekeningennaam As String = NaamTextBox.Text
        Dim Datum As String = DatumComboBox.SelectedText
        Dim Status As String = StatusNaamComboBox.SelectedValue
        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString

        Dim strconnectionstring3 As String = My.Settings.Docregdata2ConnectionString
        Dim objconnection3 As New SqlConnection(strconnectionstring3)

        Dim objcommandVerzondenNaar As New SqlCommand("GetVerzondenNaarTekeningen2", objconnection3)
        objcommandVerzondenNaar.CommandType = CommandType.StoredProcedure

        objconnection3.Open()

            '**Set your command properties**  
        With objcommandVerzondenNaar
            .Parameters.AddWithValue("@Bladnummer", Bladnummer)
            .Parameters.AddWithValue("@Tekeningnaam", Tekeningennaam)
            .Parameters.AddWithValue("@Datum", Datum)
            .Parameters.AddWithValue("@Status", Status)
            .Parameters.AddWithValue("@Werknummer", werknummer)
            .ExecuteReader()
        End With

        objconnection3.Close()

        Dim objDataAdapterVerzonden As New SqlDataAdapter
        objDataAdapterVerzonden.SelectCommand = objcommandVerzondenNaar

        Dim objDataSetVerzondenTekeningen As New DataSet
        objDataAdapterVerzonden.Fill(objDataSetVerzondenTekeningen, "TekeningenVerzondenNaar")

        Dim dvTekeningenVerzondenNaar As New DataView(objDataSetVerzondenTekeningen.Tables("TekeningenVerzondenNaar"))

        DGRVerzonden_Tekeningen.AutoGenerateColumns = True
        DGRVerzonden_Tekeningen.DataSource = dvTekeningenVerzondenNaar
        DGRVerzonden_Tekeningen.Columns("Verzonden_Naar").Visible = True
        DGRVerzonden_Tekeningen.Columns("Verzonden_ID").Visible = False
        DGRVerzonden_Tekeningen.Columns("Werknummer").Visible = False

    End Sub

    'Verzendbrief laten zien door dubbelclick op cell
    Private Sub DGRVerzonden_Tekeningen_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGRVerzonden_Tekeningen.CellContentDoubleClick

        Dim strVerzendbrief As String
        strVerzendbrief = Me.DGRVerzonden_Tekeningen.CurrentCell.Value.ToString
        Process.Start(strVerzendbrief)

    End Sub


End Class